home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Utilities / Ghostscript / src / gstype1.c < prev    next >
Encoding:
C/C++ Source or Header  |  2001-01-01  |  16.1 KB  |  585 lines
  1. /* Copyright (C) 1990, 2000 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of AFPL Ghostscript.
  4.   
  5.   AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6.   distributor accepts any responsibility for the consequences of using it, or
  7.   for whether it serves any particular purpose or works at all, unless he or
  8.   she says so in writing.  Refer to the Aladdin Free Public License (the
  9.   "License") for full details.
  10.   
  11.   Every copy of AFPL Ghostscript must include a copy of the License, normally
  12.   in a plain ASCII text file named PUBLIC.  The License grants you the right
  13.   to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14.   conditions described in the License.  Among other things, the License
  15.   requires that the copyright notice and this notice be preserved on all
  16.   copies.
  17. */
  18.  
  19. /*$Id: gstype1.c,v 1.5 2000/09/19 19:00:33 lpd Exp $ */
  20. /* Adobe Type 1 charstring interpreter */
  21. #include "math_.h"
  22. #include "memory_.h"
  23. #include "gx.h"
  24. #include "gserrors.h"
  25. #include "gsstruct.h"
  26. #include "gxarith.h"
  27. #include "gxfixed.h"
  28. #include "gxmatrix.h"
  29. #include "gxcoord.h"
  30. #include "gxistate.h"
  31. #include "gzpath.h"
  32. #include "gxfont.h"
  33. #include "gxfont1.h"
  34. #include "gxtype1.h"
  35.  
  36. /*
  37.  * Define whether to always do Flex segments as curves.
  38.  * This is only an issue because some old Adobe DPS fonts
  39.  * seem to violate the Flex specification in a way that requires this.
  40.  * We changed this from 1 to 0 in release 5.02: if it causes any
  41.  * problems, we'll implement a more sophisticated test.
  42.  */
  43. #define ALWAYS_DO_FLEX_AS_CURVE 0
  44.  
  45. /* ------ Main interpreter ------ */
  46.  
  47. /*
  48.  * Continue interpreting a Type 1 charstring.  If str != 0, it is taken as
  49.  * the byte string to interpret.  Return 0 on successful completion, <0 on
  50.  * error, or >0 when client intervention is required (or allowed).  The int*
  51.  * argument is where the othersubr # is stored for callothersubr.
  52.  */
  53. int
  54. gs_type1_interpret(gs_type1_state * pcis, const gs_const_string * str,
  55.            int *pindex)
  56. {
  57.     gs_font_type1 *pfont = pcis->pfont;
  58.     gs_type1_data *pdata = &pfont->data;
  59.     bool encrypted = pdata->lenIV >= 0;
  60.     gs_op1_state s;
  61.     fixed cstack[ostack_size];
  62.  
  63. #define cs0 cstack[0]
  64. #define ics0 fixed2int_var(cs0)
  65. #define cs1 cstack[1]
  66. #define ics1 fixed2int_var(cs1)
  67. #define cs2 cstack[2]
  68. #define ics2 fixed2int_var(cs2)
  69. #define cs3 cstack[3]
  70. #define ics3 fixed2int_var(cs3)
  71. #define cs4 cstack[4]
  72. #define ics4 fixed2int_var(cs4)
  73. #define cs5 cstack[5]
  74. #define ics5 fixed2int_var(cs5)
  75.     cs_ptr csp;
  76. #define clear CLEAR_CSTACK(cstack, csp)
  77.     ip_state *ipsp = &pcis->ipstack[pcis->ips_count - 1];
  78.     register const byte *cip;
  79.     register crypt_state state;
  80.     register int c;
  81.     int code = 0;
  82.     fixed ftx = pcis->origin.x, fty = pcis->origin.y;
  83.  
  84.     switch (pcis->init_done) {
  85.     case -1:
  86.         break;
  87.     case 0:
  88.         gs_type1_finish_init(pcis, &s);    /* sets sfc, ptx, pty, origin */
  89.         ftx = pcis->origin.x, fty = pcis->origin.y;
  90.         break;
  91.     default /*case 1 */ :
  92.         ptx = pcis->position.x;
  93.         pty = pcis->position.y;
  94.         sfc = pcis->fc;
  95.     }
  96.     sppath = pcis->path;
  97.     s.pcis = pcis;
  98.     INIT_CSTACK(cstack, csp, pcis);
  99.  
  100.     if (str == 0)
  101.     goto cont;
  102.     ipsp->char_string = *str;
  103.     cip = str->data;
  104.   call:state = crypt_charstring_seed;
  105.     if (encrypted) {
  106.     int skip = pdata->lenIV;
  107.  
  108.     /* Skip initial random bytes */
  109.     for (; skip > 0; ++cip, --skip)
  110.         decrypt_skip_next(*cip, state);
  111.     }
  112.     goto top;
  113.   cont:cip = ipsp->ip;
  114.     state = ipsp->dstate;
  115.   top:for (;;) {
  116.     uint c0 = *cip++;
  117.  
  118.     charstring_next(c0, state, c, encrypted);
  119.     if (c >= c_num1) {
  120.         /* This is a number, decode it and push it on the stack. */
  121.  
  122.         if (c < c_pos2_0) {    /* 1-byte number */
  123.         decode_push_num1(csp, c);
  124.         } else if (c < cx_num4) {    /* 2-byte number */
  125.         decode_push_num2(csp, c, cip, state, encrypted);
  126.         } else if (c == cx_num4) {    /* 4-byte number */
  127.         long lw;
  128.  
  129.         decode_num4(lw, cip, state, encrypted);
  130.         *++csp = int2fixed(lw);
  131.         if (lw != fixed2long(*csp)) {
  132.             /*
  133.              * We handle the only case we've ever seen that
  134.              * actually uses such large numbers specially.
  135.              */
  136.             long denom;
  137.  
  138.             c0 = *cip++;
  139.             charstring_next(c0, state, c, encrypted);
  140.             if (c < c_num1)
  141.             return_error(gs_error_rangecheck);
  142.             if (c < c_pos2_0)
  143.             decode_num1(denom, c);
  144.             else if (c < cx_num4)
  145.             decode_num2(denom, c, cip, state, encrypted);
  146.             else if (c == cx_num4)
  147.             decode_num4(denom, cip, state, encrypted);
  148.             else
  149.             return_error(gs_error_invalidfont);
  150.             c0 = *cip++;
  151.             charstring_next(c0, state, c, encrypted);
  152.             if (c != cx_escape)
  153.             return_error(gs_error_rangecheck);
  154.             c0 = *cip++;
  155.             charstring_next(c0, state, c, encrypted);
  156.             if (c != ce1_div)
  157.             return_error(gs_error_rangecheck);
  158.             *csp = float2fixed((double)lw / denom);
  159.         }
  160.         } else        /* not possible */
  161.         return_error(gs_error_invalidfont);
  162.       pushed:if_debug3('1', "[1]%d: (%d) %f\n",
  163.               (int)(csp - cstack), c, fixed2float(*csp));
  164.         continue;
  165.     }
  166. #ifdef DEBUG
  167.     if (gs_debug['1']) {
  168.         static const char *const c1names[] =
  169.         {char1_command_names};
  170.  
  171.         if (c1names[c] == 0)
  172.         dlprintf2("[1]0x%lx: %02x??\n", (ulong) (cip - 1), c);
  173.         else
  174.         dlprintf3("[1]0x%lx: %02x %s\n", (ulong) (cip - 1), c,
  175.               c1names[c]);
  176.     }
  177. #endif
  178.     switch ((char_command) c) {
  179. #define cnext clear; goto top
  180. #define inext goto top
  181.  
  182.         /* Commands with identical functions in Type 1 and Type 2, */
  183.         /* except for 'escape'. */
  184.  
  185.         case c_undef0:
  186.         case c_undef2:
  187.         case c_undef17:
  188.         return_error(gs_error_invalidfont);
  189.         case c_callsubr:
  190.         c = fixed2int_var(*csp) + pdata->subroutineNumberBias;
  191.         code = (*pdata->procs.subr_data)
  192.             (pfont, c, false, &ipsp[1].char_string);
  193.         if (code < 0)
  194.             return_error(code);
  195.         --csp;
  196.         ipsp->ip = cip, ipsp->dstate = state;
  197.         ++ipsp;
  198.         cip = ipsp->char_string.data;
  199.         goto call;
  200.         case c_return:
  201.         --ipsp;
  202.         goto cont;
  203.         case c_undoc15:
  204.         /* See gstype1.h for information on this opcode. */
  205.         cnext;
  206.  
  207.         /* Commands with similar but not identical functions */
  208.         /* in Type 1 and Type 2 charstrings. */
  209.  
  210.         case cx_hstem:
  211.         apply_path_hints(pcis, false);
  212.         type1_hstem(pcis, cs0, cs1);
  213.         cnext;
  214.         case cx_vstem:
  215.         apply_path_hints(pcis, false);
  216.         type1_vstem(pcis, cs0, cs1);
  217.         cnext;
  218.         case cx_vmoveto:
  219.         cs1 = cs0;
  220.         cs0 = 0;
  221.         accum_y(cs1);
  222.           move:        /* cs0 = dx, cs1 = dy for hint checking. */
  223.         if ((pcis->hint_next != 0 || path_is_drawing(sppath)) &&
  224.             pcis->flex_count == flex_max
  225.             )
  226.             apply_path_hints(pcis, true);
  227.         code = gx_path_add_point(sppath, ptx, pty);
  228.         goto cc;
  229.         case cx_rlineto:
  230.         accum_xy(cs0, cs1);
  231.           line:        /* cs0 = dx, cs1 = dy for hint checking. */
  232.         code = gx_path_add_line(sppath, ptx, pty);
  233.           cc:if (code < 0)
  234.             return code;
  235.           pp:if_debug2('1', "[1]pt=(%g,%g)\n",
  236.               fixed2float(ptx), fixed2float(pty));
  237.         cnext;
  238.         case cx_hlineto:
  239.         accum_x(cs0);
  240.         cs1 = 0;
  241.         goto line;
  242.         case cx_vlineto:
  243.         cs1 = cs0;
  244.         cs0 = 0;
  245.         accum_y(cs1);
  246.         goto line;
  247.         case cx_rrcurveto:
  248.         code = gs_op1_rrcurveto(&s, cs0, cs1, cs2, cs3, cs4, cs5);
  249.         goto cc;
  250.         case cx_endchar:
  251.         code = gs_type1_endchar(pcis);
  252.         if (code == 1) {
  253.             /* do accent of seac */
  254.             spt = pcis->position;
  255.             ipsp = &pcis->ipstack[pcis->ips_count - 1];
  256.             cip = ipsp->char_string.data;
  257.             goto call;
  258.         }
  259.         return code;
  260.         case cx_rmoveto:
  261.         accum_xy(cs0, cs1);
  262.         goto move;
  263.         case cx_hmoveto:
  264.         accum_x(cs0);
  265.         cs1 = 0;
  266.         goto move;
  267.         case cx_vhcurveto:
  268.         {
  269.             gs_fixed_point pt1, pt2;
  270.             fixed ax0 = sppath->position.x - ptx;
  271.             fixed ay0 = sppath->position.y - pty;
  272.  
  273.             accum_y(cs0);
  274.             pt1.x = ptx + ax0, pt1.y = pty + ay0;
  275.             accum_xy(cs1, cs2);
  276.             pt2.x = ptx, pt2.y = pty;
  277.             accum_x(cs3);
  278.             code = gx_path_add_curve(sppath, pt1.x, pt1.y, pt2.x, pt2.y, ptx, pty);
  279.         }
  280.         goto cc;
  281.         case cx_hvcurveto:
  282.         {
  283.             gs_fixed_point pt1, pt2;
  284.             fixed ax0 = sppath->position.x - ptx;
  285.             fixed ay0 = sppath->position.y - pty;
  286.  
  287.             accum_x(cs0);
  288.             pt1.x = ptx + ax0, pt1.y = pty + ay0;
  289.             accum_xy(cs1, cs2);
  290.             pt2.x = ptx, pt2.y = pty;
  291.             accum_y(cs3);
  292.             code = gx_path_add_curve(sppath, pt1.x, pt1.y, pt2.x, pt2.y, ptx, pty);
  293.         }
  294.         goto cc;
  295.  
  296.         /* Commands only recognized in Type 1 charstrings, */
  297.         /* plus 'escape'. */
  298.  
  299.         case c1_closepath:
  300.         code = gs_op1_closepath(&s);
  301.         apply_path_hints(pcis, true);
  302.         goto cc;
  303.         case c1_hsbw:
  304.         gs_type1_sbw(pcis, cs0, fixed_0, cs1, fixed_0);
  305.         cs1 = fixed_0;
  306. rsbw:        /* Give the caller the opportunity to intervene. */
  307.         pcis->os_count = 0;    /* clear */
  308.         ipsp->ip = cip, ipsp->dstate = state;
  309.         pcis->ips_count = ipsp - &pcis->ipstack[0] + 1;
  310.         /* If we aren't in a seac, do nothing else now; */
  311.         /* finish_init will take care of the rest. */
  312.         if (pcis->init_done < 0) {
  313.             /* Finish init when we return. */
  314.             pcis->init_done = 0;
  315.         } else {
  316.             /*
  317.              * Accumulate the side bearing now, but don't do it
  318.              * a second time for the base character of a seac.
  319.              */
  320.             if (pcis->seac_accent >= 0) {
  321.             /*
  322.              * As a special hack to work around a bug in
  323.              * Fontographer, we deal with the (illegal)
  324.              * situation in which the side bearing of the
  325.              * accented character (save_lsbx) is different from
  326.              * the side bearing of the base character (cs0/cs1).
  327.              */
  328.             fixed dsbx = cs0 - pcis->save_lsb.x;
  329.             fixed dsby = cs1 - pcis->save_lsb.y;
  330.  
  331.             if (dsbx | dsby) {
  332.                 accum_xy(dsbx, dsby);
  333.                 pcis->lsb.x += dsbx;
  334.                 pcis->lsb.y += dsby;
  335.                 pcis->save_adxy.x -= dsbx;
  336.                 pcis->save_adxy.y -= dsby;
  337.             }
  338.             } else
  339.             accum_xy(pcis->lsb.x, pcis->lsb.y);
  340.             pcis->position.x = ptx;
  341.             pcis->position.y = pty;
  342.         }
  343.         return type1_result_sbw;
  344.         case cx_escape:
  345.         charstring_next(*cip, state, c, encrypted);
  346.         ++cip;
  347. #ifdef DEBUG
  348.         if (gs_debug['1'] && c < char1_extended_command_count) {
  349.             static const char *const ce1names[] =
  350.             {char1_extended_command_names};
  351.  
  352.             if (ce1names[c] == 0)
  353.             dlprintf2("[1]0x%lx: %02x??\n", (ulong) (cip - 1), c);
  354.             else
  355.             dlprintf3("[1]0x%lx: %02x %s\n", (ulong) (cip - 1), c,
  356.                   ce1names[c]);
  357.         }
  358. #endif
  359.         switch ((char1_extended_command) c) {
  360.             case ce1_dotsection:
  361.             pcis->dotsection_flag ^=
  362.                 (dotsection_in ^ dotsection_out);
  363.             cnext;
  364.             case ce1_vstem3:
  365.             apply_path_hints(pcis, false);
  366.             if (!pcis->vstem3_set && pcis->fh.use_x_hints) {
  367.                 center_vstem(pcis, pcis->lsb.x + cs2, cs3);
  368.                 /* Adjust the current point */
  369.                 /* (center_vstem handles everything else). */
  370.                 ptx += pcis->vs_offset.x;
  371.                 pty += pcis->vs_offset.y;
  372.                 pcis->vstem3_set = true;
  373.             }
  374.             type1_vstem(pcis, cs0, cs1);
  375.             type1_vstem(pcis, cs2, cs3);
  376.             type1_vstem(pcis, cs4, cs5);
  377.             cnext;
  378.             case ce1_hstem3:
  379.             apply_path_hints(pcis, false);
  380.             type1_hstem(pcis, cs0, cs1);
  381.             type1_hstem(pcis, cs2, cs3);
  382.             type1_hstem(pcis, cs4, cs5);
  383.             cnext;
  384.             case ce1_seac:
  385.             code = gs_type1_seac(pcis, cstack + 1, cstack[0],
  386.                          ipsp);
  387.             if (code != 0) {
  388.                 *pindex = ics3;
  389.                 return code;
  390.             }
  391.             clear;
  392.             cip = ipsp->char_string.data;
  393.             goto call;
  394.             case ce1_sbw:
  395.             gs_type1_sbw(pcis, cs0, cs1, cs2, cs3);
  396.             goto rsbw;
  397.             case ce1_div:
  398.             csp[-1] = float2fixed((double)csp[-1] / (double)*csp);
  399.             --csp;
  400.             goto pushed;
  401.             case ce1_undoc15:
  402.             /* See gstype1.h for information on this opcode. */
  403.             cnext;
  404.             case ce1_callothersubr:
  405.             {
  406.                 int num_results;
  407.  
  408. #define fpts pcis->flex_points
  409.                 /* We must remember to pop both the othersubr # */
  410.                 /* and the argument count off the stack. */
  411.                 switch (*pindex = fixed2int_var(*csp)) {
  412.                 case 0:
  413.                     {    /* We have to do something really sleazy */
  414.                     /* here, namely, make it look as though */
  415.                     /* the rmovetos never really happened, */
  416.                     /* because we don't want to interrupt */
  417.                     /* the current subpath. */
  418.                     gs_fixed_point ept;
  419.  
  420. #if defined(DEBUG) || !ALWAYS_DO_FLEX_AS_CURVE
  421.                     fixed fheight = csp[-4];
  422.                     gs_fixed_point hpt;
  423.  
  424. #endif
  425.  
  426.                     if (pcis->flex_count != 8)
  427.                         return_error(gs_error_invalidfont);
  428.                     /* Assume the next two opcodes */
  429.                     /* are `pop' `pop'.  Unfortunately, some */
  430.                     /* Monotype fonts put these in a Subr, */
  431.                     /* so we can't just look ahead in the */
  432.                     /* opcode stream. */
  433.                     pcis->ignore_pops = 2;
  434.                     csp[-4] = csp[-3] - pcis->asb_diff;
  435.                     csp[-3] = csp[-2];
  436.                     csp -= 3;
  437.                     gx_path_current_point(sppath, &ept);
  438.                     gx_path_add_point(sppath, fpts[0].x, fpts[0].y);
  439.                     sppath->state_flags =    /* <--- sleaze */
  440.                         pcis->flex_path_state_flags;
  441. #if defined(DEBUG) || !ALWAYS_DO_FLEX_AS_CURVE
  442.                     /* Decide whether to do the flex as a curve. */
  443.                     hpt.x = fpts[1].x - fpts[4].x;
  444.                     hpt.y = fpts[1].y - fpts[4].y;
  445.                     if_debug3('1',
  446.                       "[1]flex: d=(%g,%g), height=%g\n",
  447.                           fixed2float(hpt.x), fixed2float(hpt.y),
  448.                         fixed2float(fheight) / 100);
  449. #endif
  450. #if !ALWAYS_DO_FLEX_AS_CURVE    /* See beginning of file. */
  451.                     if (any_abs(hpt.x) + any_abs(hpt.y) <
  452.                         fheight / 100
  453.                         ) {        /* Do the flex as a line. */
  454.                         code = gx_path_add_line(sppath,
  455.                                   ept.x, ept.y);
  456.                     } else
  457. #endif
  458.                     {    /* Do the flex as a curve. */
  459.                         code = gx_path_add_curve(sppath,
  460.                                fpts[2].x, fpts[2].y,
  461.                                fpts[3].x, fpts[3].y,
  462.                               fpts[4].x, fpts[4].y);
  463.                         if (code < 0)
  464.                         return code;
  465.                         code = gx_path_add_curve(sppath,
  466.                                fpts[5].x, fpts[5].y,
  467.                                fpts[6].x, fpts[6].y,
  468.                               fpts[7].x, fpts[7].y);
  469.                     }
  470.                     }
  471.                     if (code < 0)
  472.                     return code;
  473.                     pcis->flex_count = flex_max;    /* not inside flex */
  474.                     inext;
  475.                 case 1:
  476.                     gx_path_current_point(sppath, &fpts[0]);
  477.                     pcis->flex_path_state_flags =    /* <--- more sleaze */
  478.                     sppath->state_flags;
  479.                     pcis->flex_count = 1;
  480.                     csp -= 2;
  481.                     inext;
  482.                 case 2:
  483.                     if (pcis->flex_count >= flex_max)
  484.                     return_error(gs_error_invalidfont);
  485.                     gx_path_current_point(sppath,
  486.                          &fpts[pcis->flex_count++]);
  487.                     csp -= 2;
  488.                     inext;
  489.                 case 3:
  490.                     /* Assume the next opcode is a `pop'. */
  491.                     /* See above as to why we don't just */
  492.                     /* look ahead in the opcode stream. */
  493.                     pcis->ignore_pops = 1;
  494.                     replace_stem_hints(pcis);
  495.                     csp -= 2;
  496.                     inext;
  497.                 case 12:
  498.                 case 13:
  499.                     /* Counter control isn't implemented. */
  500.                     cnext;
  501.                 case 14:
  502.                     num_results = 1;
  503.                   blend:
  504.                     code = gs_type1_blend(pcis, csp,
  505.                               num_results);
  506.                     if (code < 0)
  507.                     return code;
  508.                     csp -= code;
  509.                     inext;
  510.                 case 15:
  511.                     num_results = 2;
  512.                     goto blend;
  513.                 case 16:
  514.                     num_results = 3;
  515.                     goto blend;
  516.                 case 17:
  517.                     num_results = 4;
  518.                     goto blend;
  519.                 case 18:
  520.                     num_results = 6;
  521.                     goto blend;
  522.                 }
  523.             }
  524. #undef fpts
  525.             /* Not a recognized othersubr, */
  526.             /* let the client handle it. */
  527.             {
  528.                 int scount = csp - cstack;
  529.                 int n;
  530.  
  531.                 /* Copy the arguments to the caller's stack. */
  532.                 if (scount < 1 || csp[-1] < 0 ||
  533.                 csp[-1] > int2fixed(scount - 1)
  534.                 )
  535.                 return_error(gs_error_invalidfont);
  536.                 n = fixed2int_var(csp[-1]);
  537.                 code = (*pdata->procs.push_values)
  538.                 (pcis->callback_data, csp - (n + 1), n);
  539.                 if (code < 0)
  540.                 return_error(code);
  541.                 scount -= n + 1;
  542.                 pcis->position.x = ptx;
  543.                 pcis->position.y = pty;
  544.                 apply_path_hints(pcis, false);
  545.                 /* Exit to caller */
  546.                 ipsp->ip = cip, ipsp->dstate = state;
  547.                 pcis->os_count = scount;
  548.                 pcis->ips_count = ipsp - &pcis->ipstack[0] + 1;
  549.                 if (scount)
  550.                 memcpy(pcis->ostack, cstack, scount * sizeof(fixed));
  551.                 return type1_result_callothersubr;
  552.             }
  553.             case ce1_pop:
  554.             /* Check whether we're ignoring the pops after */
  555.             /* a known othersubr. */
  556.             if (pcis->ignore_pops != 0) {
  557.                 pcis->ignore_pops--;
  558.                 inext;
  559.             }
  560.             ++csp;
  561.             code = (*pdata->procs.pop_value)
  562.                 (pcis->callback_data, csp);
  563.             if (code < 0)
  564.                 return_error(code);
  565.             goto pushed;
  566.             case ce1_setcurrentpoint:
  567.             ptx = ftx, pty = fty;
  568.             cs0 += pcis->adxy.x;
  569.             cs1 += pcis->adxy.y;
  570.             accum_xy(cs0, cs1);
  571.             goto pp;
  572.             default:
  573.             return_error(gs_error_invalidfont);
  574.         }
  575.         /*NOTREACHED */
  576.  
  577.         /* Fill up the dispatch up to 32. */
  578.  
  579.           case_c1_undefs:
  580.         default:        /* pacify compiler */
  581.         return_error(gs_error_invalidfont);
  582.     }
  583.     }
  584. }
  585.